home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
coder.s
< prev
next >
Wrap
Text File
|
1991-09-21
|
268b
|
13 lines
* CODER by Simone Rapisarda & James Cloos
ASSEMBLE
NIBASC /HPHP48-D/
RPL
::
CK2NOLASTWD DO>STR SWAP DO>STR DUPLEN$ ROT
BEGIN 2DUP LEN$ #>
WHILE DUP &$
REPEAT ONE ROT SUB$ XOR$
;